COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "LINTST"
C00004 ENDMK
C⊗;
BEGIN "LINTST"
REQUIRE "VIXHDR.SAI[VIS,HPM]" SOURCE_FILE;
REQUIRE "PICGRA.SAI[VIS,HPM]" SOURCE_FILE;
INTEGER I,J,K,L,M;

DDINIT;
   BEGIN
   INTEGER ARRAY PIC[0:PIXDIM(481,512,6)];
   MAKPIX(481,512,6,PIC[0]);
   WHILE TRUE DO
      BEGIN
      PIXLIN(RAN(0),RAN(0),RAN(0),RAN(0),1.0,PIC[0]);
      MAPGRY(1,PIC[BYBI]); GRAY(PIC[0]);
      FOR I←PIC[BYBI]-1 STEP -1 UNTIL 0 DO
      IF SYNMAP(I)>0 THEN
	 BEGIN
	 DRKEN; RECTAN(-100,-100,100,100);
	 VIDONE(PIC[0],1 LSH (PIC[BYBI]-1-I),0,0);
	 DPYUP(SYNMAP(I));
	 END;
      UNGRAY(PIC[0]);
      END;

   END;

END;